100 REM LOAN PRINCIPAL
110 S$="             "
115 W=10: REM  NUMERIC FIELD WIDTH
120 OPEN 1,3: REM  1,4 FOR PRINTER
130 INPUT"ANNUAL INTEREST RATE   .12[157][157][157][157][157]";I
140 INPUT"  NUMBER OF PAYMENTS   48[157][157][157][157]";N
150 I=I/12 :REM MONTHLY INT
160 PRINT#1,"INTEREST="I", # PAYMENTS="N
170 PRINT#1,CHR$(13);"[205]ONTHLY [208]MTS   [208]RINCIPAL"
175 :
180 FOR PV=10 TO 1000 STEP 10
185 REM  CALCULATE LOAN PRINCIPAL
190 P=PV*(1-(1+I)^(-N))/I
195 REM  FORMAT 'P'
200 P$=RIGHT$(S$+STR$(INT(P*100+.5)),W)
210 PRINT#1,PV,LEFT$(P$,LEN(P$)-2)"."RIGHT$(P$,2)
220 NEXT PV
225 :
230 PRINT#1: CLOSE1